home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / .edrc < prev    next >
Text File  |  1996-09-26  |  10KB  |  283 lines
  1. #
  2. #    XDME startup-file
  3. #
  4. #    $Id: .edrc 1.1 1994/08/14 14:13:24 digulla Exp digulla $
  5. #
  6.  
  7. # give XDME more CPU-time
  8. taskpri 1
  9.  
  10.  
  11.  
  12. # Preferences; take care, these values override the config
  13. savetabs    on
  14. autounblock on
  15.  
  16.  
  17.  
  18.  
  19. # see the following 2 lines as constant definitions ... make things easier
  20. settoggle   1
  21. resettoggle 0
  22.  
  23. # some other stdt Prefs ...
  24. set macroname  PROGDIR:Macros/?.xrc
  25. set iconname   ENV:Sys/def_Text
  26. set printout   t:printout
  27. set PRINTER    prt:
  28. set OkCncl     OK|Cancel
  29. set lastcmd    ()
  30.  
  31.  
  32.  
  33. # Make menus
  34. menuoff
  35. menuclear
  36.  
  37. setmacro mh   1 (set menu \$arg1)
  38. setmacro m+   2 (menuadd \$menu \$arg1 \$arg2)
  39. setmacro m-   0 (menubar \$menu)
  40. setmacro m/   3 (menucheck \$menu \$arg1 \$arg3 if (\$arg2) (menusetcheck \\\$menu \\\$arg1 1))
  41. setmacro mi   1 (set menuitem \$arg1)
  42. setmacro mi+  2 (menuadd \$menu \$menuitem^S\$arg1 \$arg2)
  43. setmacro mi-  0 (menuadd \$menu \$menuitem^S^B ())
  44. setmacro mi/  3 (menucheck \$menu (\$menuitem^S\$arg1) \$arg3 if (\$arg2) (menusetcheck \\\$menu \\\$menuitem^S\\\$arg1 1))
  45.  
  46.  
  47. mh Project
  48.     m+ `New...^AN'      A-n
  49.     m+ `Load...^AO'     A-o
  50.     m+ `Insfile...'     arpinsfile
  51.     m+ `Project load'   projectload
  52.     m-
  53.     m+ `Save^AS'        A-s
  54.     m+ `Save as...^AA'  A-a
  55.     m+ `Save & Iconify' `A-s A-i'
  56.     m+ `Project save'   projectsave
  57.     m-
  58.     m+ `Print^AP'       A-p
  59.     m+ `Print as...'    `title `Not yet :-)''
  60.     m-
  61.     m+ `Iconify^AI'     A-i
  62.     m-
  63.     m+ `Save & Quit'    `A-s A-q'
  64.     m+ `Quit window'    A-q
  65.     m+ `Quit XDME'      A-Q
  66.  
  67. mh Edit
  68.     m+ `Cut^AX'             A-x
  69.     m+ `Copy^AC'            A-c
  70.     m+ `Paste^AV'           A-v
  71.     m+ `Erase'              bdelete
  72.     m-
  73.     m+ `Undo^AZ'            A-z
  74.     m-
  75.     m+ `Find next...'       reqfind
  76.     m+ `Find prev...'       As-f
  77.     m+ `Find next    a-n'   a-n
  78.     m+ `Find prev    a-p'   a-p
  79.     m-
  80.     m+ `Replace Next...'    reqreplace
  81.     m+ `Replace Prev...'    As-r
  82.     m+ `Rep. Next   as-n'   as-n
  83.     m+ `Rep. Prev   as-p'   as-p
  84.     m+ `Replace all'        `push pos ifelse bl `goto block while cb `next if cb `ifelse x=1 `up last' left nextr'' goto end' `top repeat -1 nextr' pop auto'
  85.  
  86. mh Block
  87.     m+ `Move block      a-m' bmove
  88.     m+ `Copy Block      a-c' bcopy
  89.     m+ `Delete Block    a-d' bdelete
  90.     m+ `Unhighlite      a-u' a-u
  91.     m-
  92.     m+ `Print block     a-p' bprintout
  93.     m+ `Save as...'          barpsave
  94.     m-
  95.     m+ `Indent block    a-i' a-i
  96.     m+ `Outdent block   a-I' as-i
  97.  
  98. mh Move
  99.     m+    (Start of Text)     (top first)
  100.     m+    (End of Text)       (bottom last)
  101.     m-
  102.     m+    (Start of Line)     first
  103.     m+    (1st Character)     firstnb
  104.     m+    (End of Line)       last
  105.     m-
  106.     m+    (Start of Word)     (right wleft)
  107.     m+    (End of Word)       (right wleft while ca right)
  108.     m-
  109.     m+    (Line...)       reqgoto
  110.     m+    (Column...)     reqcol
  111.     m-
  112.     mi    Marker
  113.     mi+ (Set #1)    (ping 1)
  114.     mi+ (Set #2)    (ping 2)
  115.     mi+ (Set #3)    (ping 3)
  116.     mi-
  117.     mi+ (Goto #1)   (pong 1)
  118.     mi+ (Goto #2)   (pong 2)
  119.     mi+ (Goto #3)   (pong 3)
  120.  
  121. mh Macros
  122.     m+    (Start record) (recstart title (Record Started))
  123.     m+    (End record)   (recend   title (Record Ended))
  124.     m-
  125.     m+    (Play record)  recplay
  126.     m+    (Source...)     (reqfile (XDME Read Macro) P  \$macroname set macroname \$(reqresult) source  \$(macroname))
  127.     m+    (Save...)       (reqfile (XDME Save Macro) SP \$macroname set macroname \$(reqresult) recsave \$(macroname))
  128.     m-
  129.     m+    (Command shell)         opencmdshell
  130.     m+    (Execute command...)    (reqstring (XDME Execute Command) () \$OkCncl \$lastcmd set lastcmd \$reqresult eval \$lastcmd)
  131.  
  132. mh Settings
  133.     m/      (Insert mode?)          $insertmode   (insertmode \$itemcheck)
  134.     m/      (ReadOnly mode?)        $viewmode     (viewmode   \$itemcheck)
  135.     m-
  136.     m/      (Automatic indenting?)  $autoindent   (autoindent \$itemcheck)
  137.     m/      (Automatic splitting?)  $autosplit    (autosplit  \$itemcheck)
  138.     m/      (Wordwrap?)             $wordwrap     (wordwrap   \$itemcheck)
  139.     m+    (Right margin...)                       reqmargin
  140.     m+    (Left magrin...)                        reqparcol
  141.     m-
  142.     m/      (Global search?)        $globalsearch (global     \$itemcheck)
  143.     m/      (Case insensitive?)     $ignorecase   (ignorecase \$itemcheck)
  144.     m-
  145.     m+    (Font...)                               reqfont
  146.     m-
  147.     mi Advanced
  148.     mi/    (NON-AUISG paging?)      $nicepaging     (nicepaging       \$itemcheck)
  149.     mi/    (Errors abort scripts?)  $sourcebreaks   (spc sourcebreaks \$itemcheck)
  150.     mi/    (Automatic unblock?)     $autounblock    (spc autounblock  \$itemcheck)
  151.     mi/    (Backup mode?)           $dobackup       (spc dobackup     \$itemcheck)
  152.     mi/    (Keep Cursor visible?)   $followcursor   (spc followcursor \$itemcheck)
  153.     mi/    (Keep icon window active?) $iconactive   (spc iconactive   \$itemcheck)
  154.     mi/    (Disable error requesters?) $norequest   (spc norequest    \$itemcheck)
  155.     mi/    (Show title?)            $showtitle      (spc showtitle    \$itemcheck)
  156.     mi/    (Short lines?)           $shortlines     (spc shortlines   \$itemcheck)
  157.     mi-
  158.     mi/    (Save tabulators?)       $savetabs       (spc savetabs     \$itemcheck)
  159.     mi/    (Save only leading tabs?) $simpletabs    (spc simpletabs   \$itemcheck)
  160.     mi-
  161.     mi/    (Activated window 2 front?) $activetofront (spc activetofront \$itemcheck)
  162.     mi/    (Cycle through windows?) $windowcycling    (spc windowcycling \$itemcheck)
  163.     mi-
  164.     mi/    (Debug mode?) $debug     (spc debug    \$itemcheck)
  165.     mi/    (View mode?)  $viewmode  (spc viewmode \$itemcheck)
  166.     mi Colors
  167.     mi+ (Text foreground...)                reqfgpen
  168.     mi+ (Text background...)                reqbgpen
  169.     mi-
  170.     mi+ (Block foreground...)               reqhgpen
  171.     mi+ (Block background...)               reqbbpen
  172.     mi-
  173.     mi+ (Title foreground...)               reqtfpen
  174.     mi+ (Title background...)               reqtbpen
  175.     mi/ (Intuition titles?) $windowtitles   (spc windowtitles \$itemcheck)
  176.     mi More
  177.     mi+ (These settings cannot be saved)    ()
  178.     mi-
  179.     mi+ (File pattern...)                   reqpattern
  180.     mi-
  181.     mi/   (Create icons?)     $saveicons    (spc saveicons \$itemcheck)
  182.     mi+ (Iconname ...)                      (reqfile (XDME Select Icon) P \$(iconname) set iconname \$(reqresult))
  183.     mi-
  184.     mi/   (AppIcon?)          $appicon      (spc appicon   \$itemcheck)
  185.     mi+ (AppIconname ...)                   (reqfile   (XDME Select Icon) P \$(appiconname) set appiconname \$(reqresult))
  186.     mi+ (AppIcontitle ...)                  (reqstring (XDME) (Enter the AppIcon Title!) \$OkCncl \$(appicontitle) set appicontitle \$(reqresult))
  187.     m-
  188. #   m+    (Load settings)                         loadconfig
  189.     m+    (Save settings)                         saveconfig
  190.  
  191. menuon
  192.  
  193. map A-p printout
  194. map a-u unblock
  195. map A-f reqfind
  196.  
  197. # mouse blocking
  198. set _actlmb 254
  199. map   L-lmb `tomouse settoggle $_actlmb'
  200. map   L-mmo `if $_actlmb `bstart resettoggle $_actlmb menuoff' tomouse bend'
  201. map   u-lmb `if !$_actlmb menuon'
  202. map  uR-lmb u-lmb
  203. map uRL-lmb u-lmb
  204. map  LR-rmb `unblock settoggle $_actlmb menuon'
  205.  
  206. map    -ret return
  207.  
  208.  
  209. # The following macros are for YADME compability (see YADME v1.0 (c) 1994 by Karl Lukas)
  210. setmacro reqparcol  0 (reqnumber (XDME - Left margin)  () \$OkCncl \$parcol 1 \$margin setparcol \$reqresult)
  211. setmacro reqmargin  0 (reqnumber (XDME - Right margin) () \$OkCncl \$margin \$parcol 255 margin \$reqresult)
  212. setmacro reqgoto    0 (reqnumber (XDME - Goto line)    () \$OkCncl \$lineno 1 \$numlines goto \$reqresult)
  213. setmacro reqtabstop 0 (reqnumber (XDME - Set tabwidth) () \$OkCncl \$tabstop 1 255 tabstop \$reqresult)
  214. setmacro reqfind    0 (reqstring (XDME - Enter search string) () \$OkCncl \$findstr find \$reqresult)
  215. setmacro clear        0 (newfile () chfilename unnamed)
  216. setmacro reload     0 (modified off newfile \$filename)
  217. setmacro cut        0 (copy bdelete)
  218. setmacro paste        0 clipins
  219. setmacro findfile   1 (select window=\$arg1)
  220. setmacro upfast     0 (goto -2) rem (2 up)
  221. setmacro downfast   0 (goto +2) rem (2 down)
  222. setmacro aslsave    0 arpsave
  223. setmacro aslload    0 arpload
  224. setmacro aslfont    0 arpfont
  225. setmacro aslinsfile 0 arpinsfile
  226.  
  227. # some other macros ...
  228. setmacro printout  0 (push modified push savetabs savetabs off writeto \$printout 2 (pop auto) execute (run copy \$printout \$PRINTER))
  229. setmacro bprintout 0 (push modified push savetabs savetabs off bsave   \$printout 2 (pop auto) execute (run copy \$printout \$PRINTER))
  230.  
  231. setmacro reqfgpen 0 (reqpalette (XDME - Text foreground)  \$fgpen fgpen \$reqresult)
  232. setmacro reqbgpen 0 (reqpalette (XDME - Text background)  \$bgpen bgpen \$reqresult)
  233. setmacro reqhgpen 0 (reqpalette (XDME - Block foreground) \$hgpen hgpen \$reqresult)
  234. setmacro reqbbpen 0 (reqpalette (XDME - Block background) \$bbpen bbpen \$reqresult)
  235. setmacro reqtfpen 0 (reqpalette (XDME - Title foreground) \$tfpen tfpen \$reqresult)
  236. setmacro reqtbpen 0 (reqpalette (XDME - Title background) \$tbpen tbpen \$reqresult)
  237.  
  238. setmacro reqpattern 0 (reqstring (XDME - Filerequester pattern) () \$OkCncl \$pattern pattern \$reqresult)
  239. setmacro reqcol     0 (reqnumber (XDME - Goto column) () \$OkCncl \$colno 1 255 col \$reqresult)
  240.  
  241. # Source users .edrc-file
  242. source s:.edrc_user
  243.  
  244. # come around w/ SAS' "Edit" Icons
  245. if (\$fname="Edit)    (chfilename unnamed)
  246.  
  247.  
  248. if (\$fname="unnamed) (arpload)
  249.  
  250. #
  251. # Some important notes to the shown menu:
  252. #
  253. # 1. Menu shortcuts are CASE INSENSITIVE; this behaviour can not
  254. #    be fixed, since it is a 'feature' of Intuition ...
  255. #
  256. # 2. Changing a System flag immediately (e.g. via CmdShell,
  257. #    w/ loadconfig, or Keyboard macros) won't change the
  258. #    according Menu - this might be confusing ...
  259. #
  260. # 3. Many SETTINGs are PROJECT values, so changing them in
  261. #    project A won't change them in project B; the MENUstrips
  262. #    however are GLOBAL, so they do not change from one project
  263. #    to the other ...
  264. #
  265.  
  266. #
  267. #   the following macros used to be builtin
  268. #
  269. setmacro alias          2 (setmacro \$arg1 0 \$arg2)
  270. setmacro unalias      1 (unsetmacro \$arg1)
  271. setmacro aslload      0 (arpload)
  272. setmacro aslinsfile   0 (arpinsfile)
  273. setmacro aslfont      0 (arpfont)
  274. setmacro aslsave      0 (arpsave)
  275. setmacro firstwindow  0 (select f)
  276. setmacro lastwindow   0 (select l)
  277. setmacro nextwindow   0 (select n)
  278. setmacro prevwindow   0 (select p)
  279. setmacro so          0 (if m saveold)
  280. setmacro sourcebreaks 1 (spc sourcebreaks \$arg1)
  281.  
  282.  
  283.